home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / c / colonization1.dms / colonization1.adf / Install Colonization < prev    next >
Text File  |  1995-05-31  |  7KB  |  319 lines
  1. ; Colonization Hard Drive Installation Script
  2. ; by Scott Johnston
  3. ;
  4. ; Copyright © 1994, 1995 Microprose Ltd.
  5. ;
  6. ; Microprose Ltd.
  7. ; The Ridge,
  8. ; Chipping Sodbury,
  9. ; Avon.
  10. ; BS17 6AY
  11. ; UK
  12.  
  13. (complete 0)
  14.  
  15. ;=============================================================================
  16.  
  17. (set #ask-Colonization-dir-ENG
  18.     (cat
  19.         "In which disk or drawer should a drawer \"Colonization\" "
  20.         "be created where all files will be copied?"
  21.     )
  22. )
  23.  
  24. (set #ask-Colonization-dir-help-ENG
  25.     (cat
  26.         "Here you specify, where you want to install Colonization "
  27.         "and all support files. A drawer \"Colonization\" will "
  28.         "be created, so you select \"DH0:\" to install Colonization "
  29.         "in a drawer \"DH0:Colonization\".\n\n"
  30.     )
  31. )
  32.  
  33. (set #ask-Colonization-disk1-ENG
  34.     (cat
  35.         "Please insert the disk labelled... "
  36.         "\"Colonization Disk 1\"."
  37.     )
  38. )
  39.  
  40. (set #ask-Colonization-disk2-ENG
  41.     (cat
  42.         "Please insert the disk labelled... "
  43.         "\"Colonization Disk 2\"."
  44.     )
  45. )
  46.  
  47. (set #ask-Colonization-disk3-ENG
  48.     (cat
  49.         "Please insert the disk labelled... "
  50.         "\"Colonization Disk 3\"."
  51.     )
  52. )
  53.  
  54. ;=============================================================================
  55.  
  56. (set #ask-Colonization-dir-FRE
  57.     (cat
  58.         "Dans quel disque ou tiroir devrait être créé Colonization?  Tous les fichiers "
  59.         "seront copiés à cet endroit."
  60.     )
  61. )
  62.  
  63. (set #ask-Colonization-dir-help-FRE
  64.     (cat
  65.         "Veuillez spécifier la destination pour l'installation d'Colonization et des "
  66.         "fichiers de soutien.  Un tiroir intitulé Colonization sera créé.\n\n"
  67.     )
  68. )
  69.  
  70. (set #ask-Colonization-disk1-FRE
  71.     (cat
  72.         "Please insert the disk labelled... "
  73.         "\"Colonization Disk 1\"."
  74.     )
  75. )
  76.  
  77. (set #ask-Colonization-disk2-FRE
  78.     (cat
  79.         "Please insert the disk labelled... "
  80.         "\"Colonization Disk 2\"."
  81.     )
  82. )
  83.  
  84. (set #ask-Colonization-disk3-FRE
  85.     (cat
  86.         "Please insert the disk labelled... "
  87.         "\"Colonization Disk 3\"."
  88.     )
  89. )
  90.  
  91. ;=============================================================================
  92.  
  93. (set #ask-Colonization-dir-GER
  94.     (cat
  95.         "In welchem Laufwerk oder welcher Schublade soll Colonization installiert "
  96.         "werden?  Dorthin werden alle Dateien übertragen."
  97.     )
  98. )
  99.  
  100. (set #ask-Colonization-dir-help-GER
  101.     (cat
  102.         "Bitte angeben, wo Colonization und Zusatzdateien installiert werden sollen.  Eine "
  103.         "Schublade namens Colonization wird dann erstellt.\n\n"
  104.     )
  105. )
  106.  
  107. (set #ask-Colonization-disk1-GER
  108.     (cat
  109.         "Please insert the disk labelled... "
  110.         "\"Colonization Disk 1\"."
  111.     )
  112. )
  113.  
  114. (set #ask-Colonization-disk2-GER
  115.     (cat
  116.         "Please insert the disk labelled... "
  117.         "\"Colonization Disk 2\"."
  118.     )
  119. )
  120.  
  121. (set #ask-Colonization-disk3-GER
  122.     (cat
  123.         "Please insert the disk labelled... "
  124.         "\"Colonization Disk 3\"."
  125.     )
  126. )
  127.  
  128. ;=============================================================================
  129. ;=============================================================================
  130. ;=============================================================================
  131.  
  132. ;Establish users' language preference
  133.  
  134. (set language
  135.     (askchoice
  136.         (prompt "")
  137.         (help
  138.             @askchoice-help
  139.         )
  140.         (choices "English" "Français" "Deutsch")
  141.     )
  142. )
  143.  
  144. (if (= language 0)
  145.     (
  146.         (set #ask-Colonization-dir #ask-Colonization-dir-ENG)
  147.         (set #ask-Colonization-dir-help #ask-Colonization-dir-help-ENG)
  148.         (set #ask-Colonization-disk1 #ask-Colonization-disk1-ENG)
  149.         (set #ask-Colonization-disk2 #ask-Colonization-disk2-ENG)
  150.         (set #ask-Colonization-disk3 #ask-Colonization-disk3-ENG)
  151.     )
  152. )
  153. (if (= language 1)
  154.     (
  155.         (set #ask-Colonization-dir #ask-Colonization-dir-FRE)
  156.         (set #ask-Colonization-dir-help #ask-Colonization-dir-help-FRE)
  157.         (set #ask-Colonization-disk1 #ask-Colonization-disk1-FRE)
  158.         (set #ask-Colonization-disk2 #ask-Colonization-disk2-FRE)
  159.         (set #ask-Colonization-disk3 #ask-Colonization-disk3-FRE)
  160.     )
  161. )
  162. (if (= language 2)
  163.     (
  164.         (set #ask-Colonization-dir #ask-Colonization-dir-GER)
  165.         (set #ask-Colonization-dir-help #ask-Colonization-dir-help-GER)
  166.         (set #ask-Colonization-disk1 #ask-Colonization-disk1-GER)
  167.         (set #ask-Colonization-disk2 #ask-Colonization-disk2-GER)
  168.         (set #ask-Colonization-disk3 #ask-Colonization-disk3-GER)
  169.     )
  170. )
  171.  
  172. ;=============================================================================
  173.  
  174. ;Ask for destination drawer or partition
  175.  
  176. (set Colonization_dest
  177.     (tackon
  178.         (askdir
  179.             (prompt #ask-Colonization-dir)
  180.             (help
  181.                 #ask-Colonization-dir-help
  182.                 @askdir-help
  183.             )
  184.             (default "Work:")
  185.         )
  186.         "Colonization"
  187.     )
  188. )
  189. (set @default-dest Colonization_dest)
  190.  
  191. (complete 10)
  192.  
  193. ;=============================================================================
  194.  
  195. ;Make destination drawer
  196.  
  197. (working #ask-Colonization-copying)
  198.  
  199. (makedir Colonization_dest
  200.     (infos)
  201. )
  202.  
  203. (complete 20)
  204.  
  205. ;=============================================================================
  206.  
  207. ;Copy files from disk 1
  208.  
  209. (askdisk
  210.     (dest "Colonization Disk 1")
  211.     (prompt #ask-Colonization-disk1)
  212.     (help @copyfiles-help)
  213. )
  214.  
  215. (copyfiles
  216.     (source "Colonization Disk 1:")
  217.     (dest Colonization_dest)
  218.     (pattern "~((Install)#?)")
  219.     (infos)
  220.     (help @copyfiles-help)
  221. )
  222.  
  223. (complete 48)
  224.  
  225. (delete (cat Colonization_dest "/C")
  226.     (help @delete-help)
  227. )
  228.  
  229. (complete 50)
  230.  
  231. (delete (cat Colonization_dest "/Libs")
  232.     (help @delete-help)
  233. )
  234.  
  235. (complete 52)
  236.  
  237. (delete (cat Colonization_dest "/S")
  238.     (help @delete-help)
  239. )
  240.  
  241. (complete 54)
  242.  
  243. (delete (cat Colonization_dest "/Devs")
  244.     (help @delete-help)
  245. )
  246.  
  247. (complete 56)
  248.  
  249. ;(delete (cat Colonization_dest "/Colonization")
  250. ;    (help @delete-help)
  251. ;)
  252. ;(rename (cat Colonization_dest "/ColonizationHD") (cat Colonization_dest "/Colonization")
  253. ;    (help @rename-help)
  254. ;)
  255.  
  256. ;(complete 58)
  257. ;
  258. ;(if (< (getversion "intuition.library" (resident)) 36)
  259. ;    (
  260. ;        (delete (cat Colonization_dest "/Colonization.info")
  261. ;            (help @delete-help)
  262. ;        )
  263. ;        (rename (cat Colonization_dest "/Icon1.3") (cat Colonization_dest "/Colonization.info")
  264. ;            (help @rename-help)
  265. ;        )
  266. ;    )
  267. ;)
  268.  
  269. (complete 60)
  270.  
  271. ;=============================================================================
  272.  
  273. ;Copy all the program files from disk 2
  274.  
  275. (askdisk
  276.     (dest "Colonization Disk 2")
  277.     (prompt #ask-Colonization-disk2)
  278.     (help @copyfiles-help)
  279. )
  280.  
  281. (copyfiles
  282.     (source "Colonization Disk 2:")
  283.     (dest Colonization_dest)
  284.     (pattern "~((Install)#?)")
  285.     (infos)
  286.     (help @copyfiles-help)
  287. )
  288.  
  289. (complete 80)
  290.  
  291. ;=============================================================================
  292.  
  293. ;Copy all the program files from disk 3
  294.  
  295. (askdisk
  296.     (dest "Colonization Disk 3")
  297.     (prompt #ask-Colonization-disk3)
  298.     (help @copyfiles-help)
  299. )
  300.  
  301. (copyfiles
  302.     (source "Colonization Disk 3:")
  303.     (dest Colonization_dest)
  304.     (pattern "~((Install)#?)")
  305.     (infos)
  306.     (help @copyfiles-help)
  307. )
  308.  
  309. (complete 95)
  310.  
  311. (delete (cat Colonization_dest "/disk.info")
  312.     (help @delete-help)
  313. )
  314.  
  315. (complete 100)
  316.  
  317.  
  318. (exit)
  319.